home *** CD-ROM | disk | FTP | other *** search
/ How Many Bugs in a Box / How Many Bugs in a Box.cdr / bugs / act6a / 00013.ls < prev    next >
Encoding:
Text File  |  1995-03-28  |  1.1 KB  |  36 lines
  1. on exitFrame
  2.   global partlist, TRIAL, eyerange, bugeyesx, bugeyesy
  3.   puppetSprite(19, 1)
  4.   set bugeyesx to the locH of sprite 19
  5.   set bugeyesy to the locV of sprite 19
  6.   set eyerange to 55
  7.   set TRIAL to 0
  8.   puppetSprite(3, 1)
  9.   puppetSprite(4, 1)
  10.   set partlist to [:]
  11.   addProp(partlist, 5, random(10))
  12.   addProp(partlist, 9, random(8))
  13.   addProp(partlist, 7, random(4))
  14.   addProp(partlist, 8, random(10))
  15.   addProp(partlist, 6, random(8))
  16.   addProp(partlist, 10, random(8))
  17.   repeat with xxx = 1 to count(partlist)
  18.     if getPropAt(partlist, xxx) > 0 then
  19.       put getPropAt(partlist, xxx)
  20.       puppetSprite(getPropAt(partlist, xxx), 1)
  21.       set stemp to the name of cast the castNum of sprite getPropAt(partlist, xxx)
  22.       set ntemp to the number of chars in stemp
  23.       if char ntemp - 1 of stemp = "." then
  24.         set ntemp to ntemp - 1
  25.       else
  26.         set ntemp to ntemp - 2
  27.       end if
  28.       set stemp to char 1 to ntemp of stemp
  29.       set stemp to stemp & string(getAt(partlist, xxx))
  30.       set the castNum of sprite getPropAt(partlist, xxx) to the number of cast stemp
  31.       put stemp
  32.     end if
  33.   end repeat
  34.   updateStage()
  35. end
  36.